home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Lengths / length-condense < prev    next >
Lisp/Scheme  |  1996-12-31  |  635b  |  14 lines
  1. length-condense length-pattern
  2.  
  3. This function condenses a sequence of note-lengths into the sum of its parts. Sequential length-rests are also condensed into the sum of their parts. When note-lengths and length- rests exist together in a length-pattern the condensed result can be an effective sustained accompaniment.
  4.  
  5. (setq rhy '(1/4 1/4 -1/8 1/8 1/4 -1/4 -1/8 1/16 1/16 1/2))
  6.  
  7. (setq rhy-a (length-condense rhy))
  8. --> (1/2 -1/8 3/8 -3/8 5/8)
  9.  
  10. (length-condense '(48 48 -48 -48)) 
  11. --> (96 -96)
  12.  
  13. Use this function to create accompaniment parts that track and 'breath' accurately to a master rhythmic sequence. See also length-aggregate.
  14.